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* 

* 

Meeting 

on 9th December 1 385 



will be our 

Annual Christmas Party 


* 



* 


Please bring a plate - drinks will 




be supplied 

* 





* 

Children are very welcome - there 



will be soft 

drinks available for them 

* 








I do hope everyone 'will make an effort to come to our Christmas 
Party - this will be the last time we will meet this year. 

The next meeting will be on the 3rd of February 1336, please write 
this date in your diary now. 


Orders can still be taken for over the Christmas, holidays, but 
please get them in as earl'/ as possible. 


Scuttle 

We have a new game called Scuttle - it includes a dog, some bones, 
a lift, and a little lad. We are at a loss to see the point of 
this game, or even to find out how it works. Can someone, or even 
two people, take a copy of chis tape and try and -work out the game 
for us? Country people ver,^' -elcom.e' to try it too, in fact, I 
will keep one tape for a country member to try over the Christmas 
hoi idays . 



Page Two 


Kong 

Andy has been playing with this 
with the spacebar, instead of the 
that your joystick (the one wired 
Kong. It is also autorunning now 
that likes to send their tape 
postage - no other charge. H 
Howick, Auckland. 


tape, and now has Mario jumping 
? key. This means, of course, 
to the keys) will now work with 
Andy will redo Kong for anyone 
to him and include the return 
s address is 98 Union Street, 


Saving Data 

Andy has been working on a machine code program that is in the 
final stages of being tested by members now to make sure it works. 
He so far has had no failures with this program, and it can be 
incorporated with any of your basic programs. More on this, 
together with cost, next newsletter, which will be just before 
February 1986. 


New and Current Members 


We have three new members to welcome this month. 

Mrs K. Whyte, 32 Durham Street , Ngaruawahia 

Amos and Bess Burrough,46 Kimberley Grove , Palmerston North 
David Paul, 29 Fenton Street , Papatoetoe 


and we welcome back - the Lambourn family, 32 Mead St, Avondale 


A Merry Christmas to you all - may you get some time over the 
holidays to play with your machines - See you next year on the 3rd 
of February, 1985 


Nola Huggins 


I- I T A I C 

A i* : C- -15 


5 CHAR 4:CLS:DEFIMTE, J,T 
30 DIMQ(53) ,S(53) ,I (12) ,X(55) ,Y(55) 

35 PRINT@42, "SOLITAIRE-RULES? (Y/M) IMPUTQ$ '■ 

36 IFLEFT*(Q$, 1)="N"THEN560 
40 G0SUB1700: G0T0560 

100 RANDOM 

110 REN USER CARDS 

120 G0SUB2000 

330 COLOURl ; PRINTe616, "DRAW CARD" : COLOURS: PRINT@656, : C0L0UR2 

340 REM AREA FOR USER 

350 U=161 ; W=203: J=1 : L=961 

360 U(J)=u:W(J)=w: J=J+i 

370 U=U+200: W=W+200: IFJ=9THEN410 




; 


L NoJ 
/ 


380 IFUOLTHEN360 
390 U=168: W=210:L=968 
400 G0T0360 

410 RENCARD AREA FOR COMPUTER 

420 C=186:U=228: J=1:L=986 

430 C(J)=C:V(J)=V; J=J+1 

440 C=C+200: V=V+200: IFJ=9THEM480 

450 IFCOLTHEN430 

460 C=193: V=235:L=995 

470 G0T0430 

480 REM ONE PACK 

490 F0RK=1T052: Q (K) =K: next: E=K/ 4: S=K: Sl=l : CU=0: RETURN 
500 Z=RND(S) 

510 IFQ(2)=0THEN500 
520 T= (Q (2) -1 ) /E: REN SUIT 
530 J=Q (2) -T*E:REHSUIT 
540 J1=T:J2=J 

550 q(2)=o:rem card user 

555 CU=CU+1 : IFCU+1=52THENG0SUB590: PRINT@42, "LAST CARD. . " ; : G0SUB596 

556 IFCU+1=53THENG0SUB530: PRINT@42, "E N D - G A M E";:G0T01300 
558 RETURN 

560 GOSUBIOO 
570 G0T0600 
580 PRINT@42," 

590 RETURN 

595 F0RTI=1T02550: next: RETURN 

596 F0RTY=1T02550:NEXT:RETURN 
600 REN USERS CARD REPLACEMENT 
610 G0SUB580 

620 PRINT(242, "YOUR CARD AREAS" 

630 F0RI=1T08:PRINT@U(I) +2, li : NEXT: G0SUE595: G0SUE580 
635 F0RI=lT03:PRIMTeU(I)+2, " " ! : NEXT 
640 F0RI=1T08: A( I ) =U( I ) : 2 ( I ) =W( I ) :next: 1=1 : v=i : 11=1 
660 A$= " A ” : K$= " K " : Q$= " Q " : J$= " J " 

670 G0SUB500 

680 IFJ2=1THENPRINT@A ( I ) +3, A$i : J2= 1 : G0T0720 
690 IFJ2=11THENPRINTQA ( I ) +3, J$; : J2=l 1 : G0T0720 
700 IFJ2=12THENPRINT@A ( I ) +3, Q$; : G0T0720 

710 IFJ2=13THENPRINT@A ( I ) +3 , K$ ; : J2= 1 3 : G0T0720ELSEPRINT@A ( I ) +2, J2; 

720 IFR=3THENX(II)=J2ELSEY(II)=J2 / ; 

730 IFJ1=0THENPRINT( : COLOUR6 : PR I NT0Z ( I ) +1 , "T J : COLOURS: : G0T0765 

740 IFJ1 = 1THENPRIMT! : C0L0UR6 : PR I NT@2 ( I ) +1, ! : C0L0UR2 : G0T0765 

750 IFJ1 = 2THENPRINT; : COLOURS : PRINTifiZ ( I ) +1 , " : COLOURS: G0T0765 A.i'c,. 

760 1FJ1=3THENPRINT! : COLOURS : PR I NTOZ ( I ) +1 , "A’ • : COLOURS M e Arrr 

765 IFR=2THENRETURNELSEIFR=1THENR=2: G0T0820 

770 i=i+i: 11=11+1 :u=v+i: ifi<>?then670 

780 IFU=17THEN810 

790 F0RI=1T08: A ( I ) =C ( I ) : 2 ( I ) =V ( I ) : NEXT: 1=1 : 11=1 : R=3 
800 G0T0670 

810 A(I)=417:Z(I)=45?:R=l: II=I:G0T0670:REM DRAW CARD 

820 REN WHO GOES FIRST 

825 M=8 

830 GOSUBSaO 


840 IFY (M) =X (M) THEN870 
850 IFY (M) >X (M) THEN880 
360 IFY (NXX (M) THEN890 
870 M=M-1 : G0T0830 

880 C0L0UR4: PRINT@42, "YOU GO FIRST COLOURS : GOTOIOOO 
890 COLOUR8: PRINTe42, " I GO F IRST COLOURS t G0SUB596 : GOTOl 200 
900 PRINT(1418," " } : FRINT@458 , " "i 

910 RETURN 

1000 REMUSER GOES FIRST 
1010 G0SUB596 
1020 LL=0:G0SUB580 
1030 PRINT@42, "PLAY (Y/M) " ; 

1040 P$=INKEY$: IFP*=" "THEN1040 

1045 IFP*=’'N"THENB=B+1 ; IFB=2THENB=0 ; G03UB900 : G0SUB500 : G0SUB680 : G0T01200ELSEG0T01 
200 

1050 B=0;GOSUB580 

1060 PRlNTe42, "HOW MANY CARDS"; 

1070 N*=INKEY*: IFN*=" "THEN1070 

1080 N=VAL (N$) : G0SUB580 

1090 PRINT@42, "CARD POSITIONS?"; 

1100 K=1:T1=0 

1110 M«=INKEY*: IFM*=" "THENl 1 10 
1120 T(K)=UAL(M*) ;T1=Y(T(K) ) +T1:K=K+1 
1130 IFK<=NTHEN1110 
1140 IFT1+J2O15THEN1150 

1145 F0RI = 1T08: A (I ) =U < I ) : Z ( I ) =W (I ) : NEXT : T2=T1 + J2 + T2; G0SUB1500: G0T01400 

1150 60SUB580:PRINT@42, "ERROR I " ; : G0SUB596 

1155 G0SUB580 

1200 REM COMPUTERS TURN 

1205 G0SUB580: G0SUB595 

1210 b=o:k=i:t3=o;h=o:kk=i 

1220 IFJ2+X (K) =15THENM1=1 I GOSUB 1 560 : GOTO 1 650 

1225 IFJ2+X (H) =15THENN1=1 : GOSUB 1 590 : GOTO 1 650 

1230 IFJ2+X (K) +X(H) =15THENN1=2:G0SUB1590:60T01630 

1235 IFJ2+X (H+2) +X (H+4) =15THENN 1=2: GOSUB 1600: G0T01650 

1240 K=K-r 1 : IFK=9ANDH=9THEN1270 

1250 IFK=9THENH=H+1 : K=KK 

1260 G0T01220 

1270 E=B+ 1 : IFB=2THENB=0 : GOSLIB900 : GOSUB500 : G0SUE680 : GOTOl 020ELSEG0T01020 

1300 REM WIN-LOSE 

1305 F0RKL=1T02500: NEXT 

1310 CLS.'PRINT 

1315 IFT6=T2THEN1330 

1320 IFT6<T2THEN1340 

1325 IFT6>T2THEN1355 

1330 C0L0UR5:PRINTe42, "TIE-YOUR TOTAL POINTS- ■ T2 

1331 PRINT: PRINT® 122, "AND MINE WERE " ; T6 

1332 C0L0UR2:G0T01365 

1340 PRINT@42, "YOU’ VE WON!" 

1355 PRINTe42, "SORRY-YOU LOST'" 

1356 PRINT@122, "YOUR POINTS " j T2 

1357 PRINT@202, "MY POINTS " ; T6 
1365 F0RK=1T05000:NEXT:PRINT 
1370 PRINT"AGAIN"; ; INPUTI* 

1380 IFRIGHT*( 1$, 1 ) = " Y " THENT2=0 : T6=0 : CLS : GOSUBl 00 : G0T0600 
1385 PR I NT "END OF RUN" 

1390 G0T01390 
1400 REMDRAW CARDS 
1405 1=1 

1410 A(I)=A(T<I)):Z(I)=2<T(I)): G0SUB500 
1415 Y(T(I) )=J2:G0SUB680 
1420 1=1+1 : IFI<=NTHEN1410 
1425 G0SUB500: 11=9 

1430 A(I)=A(II):Z(I)=Z(II): G0SUB6S0 
1435 IFLL=1THEN1020ELSE1200 
1500 REM CLEAR CARD USED 
1510 1=1 

1520 PRINT@A (T ( I ) ) +2, " " ; : PR I NTS2 ( T ( I ) ) +2 , " 

1530 1=1+1 

1540 IFI<=NTHEN1520 


« 

'Si. 

1550 G0SLIB900: RETURN 

1560 REM CLEAR COMPUTER CARD 

1570 PRINTdC (K) +1 , " " i ; PR I NT(3V ( K ) + 1 , " " i : T6 = J2 + X (K) +T6: 60T01610 

1580 PRIMT@C <H) +2, " " ; : PR INTOV ( H ) +2 , ” " ; : T6=-- J 2 + X ( H ) +T6 ! GOTO 1 6 1 0 

1590 PRINTSC <K) +1 , " " 5 : PR I NTSC ( H ) -^ 1 , ” " : ; T6 = J2 + X ( K ) +X ( H ) +T6 : GOTOl 6 1 0 

1600 PRIMTGC (H + 2) +1 , " " ; : FRIMT(5C ( H + 4 ) + 1 , " " ; : FP.IMTeU ( H + 2 ) + 1 , " ” ; : PRINTSV ( H + 4 ) 

+ 1, " : T6=J2 + X (H + 2) i-X(H + 4) +T6:UU=1 

1610 REM 

1620 PRINT@A(II)+3, " ” ; : PR I HTOZ ( 1 1 ) , " ; 

1630 fori=ito8:a(I)=c<I) ;z(I)=V(I) :mext 
1640 RETURN 

1650 REM DRAW FOR COMPUTER 
1660 I=K:M2=1 

1665 IFUU=1THEMUU=0:K=H+2: H=H+4 

1670 A ( I) =C (K) : Z ( I ) =V (K) : G0SUB500 

1675 X(K)=J2:G0SUB6S0: IFM2=M1THEN1685 

1680 N2=M2+l:K=H;G0T01670 

1685 LL=1:M1=0 

1690 G0T01425 

1700 CLS 

1710 PRINTTAB (5) ; "**** SOLITAIRE FOR TWO ****" 

1730 PRINT:PRINT:PRINT"S0LITAIRE for two is designed FOR YOU" 

1735 PRINT:PRIMT''AND your computer, each of you will HAVE" 

1740 PRINT: PRINT"EIGHT CARDS DRAWN FROM THE DECK (1 DECK=" 

1742 PRINT"52 CARDS). THE OBJECT OF THE GAME IS TO" 

1744 PRINT; PRINT”USE THE DRAW CARD WITH A COMBINATION OF" 

1746 PR I NT; PR I NT "YOUR CARDS TO TOTAL 15." 

1750 C0L0UR4: PRINT '.PRINT "ACES =1 : KINGS=13: QUEENS=12: JACKS=1 1 " : C0L0UR2 
1760 C0L0UR8:PRINT:PRINT"PRESS >> RETURN << TO CONTINUE" INPUT.XX: CLS 
1770 COLOURl : PRINT"THIS GAME USES THE INKEY FUNCTION SO YOU" 

1780 PRINT"DO NOT PRESS RETURN FOR EACH ENTRY. THE " 

1790 PRINT"VALUE OF THE EIGHTH CARD WILL DETERMINE" 

1800 PRINT:PRINT"WH0 GOES FIRST-IN THE CASE OF A TIE-THE" 

1810 PRINT:PRINT"7TH. AND SO ON. THE COMRUTER WILL RRINT" 

1820 PRINT: RRINT"CARD POSITIONS AT THE BEGINNING OF A RUN" 

1830 PRINT:PRINT"-TRY TO REMEMBER THEM . " : C0L0UR2 
1940 PRINT 

1950 PRINT: PRIMT"RRESS >> RETURN << TO BEGIN RUN " : INPUTXX 
1960 CLS: RETURN 

2000 K= 17529 ; G0SUB3000: K= 17729 : GQSUB3000: K=i:"929: G0SUB3000: K= 18129 : G0SUB3000: K=1 

7536: G0SUB3000: K=1 7736: G0SUE2000; K= 17936 ; GOSUESOOO: K=18136: G0SUB3000 

2010 K= 17554 : G0SUB3000: K= 17754 : G0SUB3000: K= 17954 :G0SUB3000;K-1 8154: G0SUB3000; K=1 

7561 : G0SUB3000: K= 17761 :G0SUB3000: K= 17961 ; G0SUB3000: K=18161 : G0SUB3000 

2020 K=17785: GOSUB3000 

2030 RETURN 

3000 REM DRAW CARDS 

3010 F0RX=KT0K+6; ROKEX, 139; NEXT 

3020 F0RX=KT0K + 120STEP40:P0KEX, 133:HE.':T 

3030 F0RX=K+6T0K+6+ 1 20STEP40 : ROKEX ,137: NEXT 

3040 FORX=K+ 1 2 1 TOK +121+4: POKEX ,140: NE/'.T 

3050 RETURN 


u. ''Vu <r r" c s 
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100 REM 
no REM 

120 CLEAR 100:DEFINT A-Z 
130 1^=128 
140 L=50 
1 jij DIM T$ 1 L) 

IciO L— O 
170 RlAD R$ 

130 ir_R$="XXX" THEN 250 
120 L=L+i 

200 IF OL THEN PR I NT "TOO MANY DATA STATEMENTS END 
210 T$(:C)=R$ 

220 GOTO 170 
250 RANDOM 
2b«.) CLS 

270 PRINT":|:444:4c TACHISTOSCOPE 44444" 

280 PRINT 

290 PR I NT "THIS PROGRAMME IS DESIGNED TO IMPROVE" 

300 PR I NT "YOUR READING SPEED" 

310 PRINT 

320 PRINT" I ’LL BRIEFLY DISPLAY A SHORT PHRASE," 

330 PR I NT "AND YOU TR:Y TO READ IT" 

340 PRINT 

350 PRINT"TYPE WHAT YOU SEE, AND I'LL TELL YOU" 

360 PRINT" IF YOU WERE RIGHT" 

370 PRINT 

410 PR I NT "PRESS ANY KEY WHEN YOU ARE READY" 

420 R$=INKEY$:IF R$="" THEN 420 
4;j0 R=RND(C) 

^140 IF R=P1 OR R=P2 OR R=P3 THEN 430 
450 IF R=P4 OR R=P5 THEN 430 
460 GOSUB 840; FOR K=1 TO 1500: NEXT 
4:^0 PRINT@530,T$(;R) 

4S0 FOR J=1 TO T;NEXT 
500 CLSzFuR K=1 TO 500: NEXT 
5 1 0 PR I NT : PR I NT : PR I NT ; PR I NT 
520 PRINTQ740, "WHAT WAS IT'" 

530 INPUT R$ 

540 IF R$<>T$(R;) then 700 
560 PR I NT "THAT’S RIGHT !" 

530 R$="FCR HALF AS LONG" 

590 P 1 =P2 ; P2=P3 : P3=P4 : P4=P5 : F5=R 
£00 PRINT 

620 IF T<=4 THEN T=4;R$="AT MAXIMUM SPEED" 

630 PRINT"THE NEXT ONE WILL BE DISPLAYED " ; R4 
£40 PR I NT: GOTO 410 

700 PR I NT "NO, THAT’S NOT IT. IT WAS " 

710 PRINT"’ ":T$(R): " 

720 T=T42 

730 IF T>1600 THEN T=1600; R$=" AT THE SAME ShEeD " : GOTO 63u 
740 R$="FOR TWICE AS LONG": GOTO 600 
840 CLS ; PR I NT 0490 , 3 I R I NG'$ C 1 2 , " - " ) 

350 PRINT 

360 PRINT057O,STRIMG$(:i2, 


370 RETURN 
910 [ 

irietP 


910 DATA AT THE TIME, THE BROWN COW, LOCK AT THAT, IN THE HOUSE, THIS IS MINE, SHE SAID S 

Sc.> Tv+tf ^ 


cAteo 

3zv DATA TO THE SHOP, READING IS FUN, HE GOES lAaT,IN ALL JTHINGS, GReEN GRASS, TWO BIRD 
S T ■N iOHT>THEV ARC NOnC *)<< 

930 DATA ON THE PHONE, THROUGH A DOOR, WE CAN TRY, MY FOOT HURTS, HAPPY NEW YEAR, XXX 

TlftC ; by ^ 


/ 


fl 



1 LPRI N TS H Rai (J?) i ; 

2 LPP?I N T - eHR ^ (2?) > ■ N ' MCHntXO) I 

3 Lt. - I g T 

4 -ett p - 

20 REM FROM L. HIGGS - 26, WINDSOR GROVE, WCRDSLEY, STOURBRIDGE, WEST MIDLANDS, D 
Y3 SAQ, ENGLAND. 

25 ’CONVERTED TO COLOUR GENIE BY DON EDWARDS 

30 CLS: COLOURS: PRINTS4S2, "ABANDON HOPE ALL YE WHO ENTER “ ; : GOSUB30000 

SO CLEAR 100 

100 CLS: RANDOM 

102 IFSC=10GOT035000 

105 GOSUB31000: G0SUB32000 

120 COLOURS: PRINTS414, "NIGHTMARE PARK COLOURS: PRINT§6i5, " SCORE = " J SC i : G0SUB3 
0000:CLS:TR=RND(6) :ONTR GOTO 5000,9000,11000,13000,15000,17000 
5000 REM MAD MATHEM 

5010 CLS; COLOURS: PRINT"THE MAD MATHEMATICIAN! 

ANSWER THE FOLLOWING QUESTION WITHIN 10 SECONDS OR DIE ! " : G0SUB3000O 
5020 R=RND(100) :S=RND:200) : A=R+S: IFA< 100G0T05020 
5030 COLOURA; PRIMT5412, R; " + "JSJ” = ?"} 

5035 FOR T=1 TO 1 100 : AS= INKEY* 

5050 IFA*<>" "GOTC5060 

5C55 next: 30T023000 

5060 FOR T=1 TO 300 ; B*= I NKEY* 

5070 IF B*< >" ''GOT05030 

5072 NEXT: GCT02S000 

5CS0 D*=IMKE''*: IFD*=" "G0T05080 

5034 C*=A* + B* + D*: C=VAL (C*) 1 PRINT" " 5 A; : GCSU330000: IFINT (C) OINT (A) GOT028000 

5100 C0L0UR5: print: print "CORRECT ! " : G 0SUB30000: SC=SC+1 : GOTOlOO 
9000 REM CRUSHER 

9005 X=40; COLOURS: CLS : PR I NT "CRUSHER ! 

ONLY ONE LETTER WILL STOP IT ! " ; G0SUB30000: CLS: COLOURS: P0KE13023, 33: R=RND (26) +64 

9040 A*=INKEY*: IFA*=" "GOTO 9040 

9041 IFA3C(A*)=R GOT09100 

9060 COLOURIO: F0R3=X TO X+39 : PRI NT5S , CHR* ( 202 ) ; : PRINTSS-40 , CHR* ( 32 ) 5 : NEXT S:X=X+ 

40: IFPEEK ( 13023) 088 GOTO 9110EL3E GOTO 9040 

9100 CLS: COLOURS: PRINT"LUCKY! 303U330000: SC=SC+1 : GOTOlOO 

9110 CLS; C0L0UR13: PRIMT"CRU3HED ! THE LETTER WAS CHR* ( R )!"!": GOSUB30000 : G0T0280 

CO 

11000 REM MEMORY TESTER 

11010 cclour2:forr=ito7:r(R)=rnd(9) ;next:cls:print"memory tester : 

MEMORISE THE FOLLOWING NUMBER " : G03UB300CO: PRINT5572, " “ ; : FORR=1T07: PR 

INTR(R) ; : NEXT: F0RR=1T0500: next: PRINTS572, " "} :PRINT§572, 

« n a 

f 

11070 FOR R=1 TO 7 

11030 A*=INKEY*:IF A*=""GOTO 11030 

11085 PRINT R(R);:IF VAL ( A* )< >R ( R ) G0SUB30000 : GOT028000 
11110 next: colours: PRINT" 

CORRECT ! " : G0SUB30000: SC=SC+ 1 : GOTO 100 
13000 REM HAIL OF BARBS 

13010 CLS: colours: PRINT"HAIL OF BARBS : 

KEEP STILL AND HOPE THEY MISS GOSUB30000: CLS: C0L0UR7: PRINT§460, "X" ;: G0SUB3 

0000 

13020 COLOUR15: F0RV=1 T0400 : A=RND ( 950 )+ 1 7403 : POKE A, 232: T=PEEK ( 17403+460) : IF TO 
33 G0SUB30000: GOTO 28000: ELSE NEXT 

13030 G0SUB30000: CLS: colours: PR I NT "SAFE ! " 5 : 3C=SC+1 : G03UB30000: GOTOlOO 
15000 REM GORRILLA 

15005 DATA"ALFRED“ , "ARTHUR* , "FREDERICK" , "PERCIVAL" , "LANCELOT" 



15010 CLS: C0L0UR2: PRINT"THE EGOTISTICAL GORILLA : 

TELL HIM HIS NAME OR BE MAULED TO DEATH 

t HIS NAME WILL BE REVEALED IN A FLASH OF LIGHTNING ) " : G0SUB30000 ; GOSUB 

30000: G0SUB30000: X=RND (26) +320 

15020 R=RND (5) : F0RT=1T0R: READNS: NEXT: RESTORE: COLOUR?: PRINTSX, N*} ; F0RN=1T050: NEXT 

:print§x," cls: C0L0UR2: INPUT" what is his name * ; ts: gosub3oooo: ift 

*<>N*PRINT"NO! IT WAS " 5 M* j " ! " : G0SUB300C0 : GOT023000 

15030 cls: C 0L0UR5: PRINT"CORRECT ! " : 303UB30000: 3C=SC+i ; GOTO 100 

17000 REM LION AND DOORS 

17010 cls; C0L0UR2: PRINT'THE THREE DOORS! 

BEHIND ONE IS A STARVING LION. G0SUB30000: A*=CHR* ( 202) : B*»A*+A*+A»+A»+A*+A*+A*+ 
A« 

17040 COLOUR11:FOR X=324 TO 524 STEP 40: PRINT5X, B*; : NEXT 
17070 F0RX=336T0536STEP40: PRINTSX, B*," : NEXT 
17030 FORX=348T0543STEP40; PRINTIX, B»; : NEXT 

17082 C0L0UR6: PRINT5207, "1"; :PRINT§219, *2"; :PRINT§231, "3"; 

17090 C0L0UR2: PRINTS640, "THROUGH WHICH DOOR DO YOU WISH TO WALK ?"} 

17100 E*=INKEY*:iF ES="* GOTO 17100 

17105 IF VAL(E*)>3 OR VAL(E*)<1 GOTO 17100 

17110 PRINT * ";E*:R=RND(3) :G0SUB30000:B*=" 

17180 F0RX=324T05243TEP40: PRINT§X, BS; : NEXT 
17190 C0L0UR4:iF R=1 PRINTS446, "LION ! " ; 

17195 G0SUB30000 

17200 F0RX=336T0536STEP40: PRINTSX, B*; (NEXT 
17210 C0L0UR4:IF R=2 PRINTS453, "LION ! " j 
17215 G0SUB30000 

17220 F0RX=343T0543STEP40: PRINTIX, BS; (NEXT 
17230 C0LCUR4:iF R=3 PRINT§470, "LION ! " 5 
17235 G03UB30C00 
17240 IF VAL(E*)=R GOTO 2S000 

17245 CLS: C0L0UR5: PRINT"SAFE ! " : G0SUB30000: SC=SC+1 : GOTO 100 

23000 REM END 

2S003 CLS 

23010 GOSUB 32000 

23020 G0SUB32000; COLOUR?: PRINTS242, "NIGHTMARE PARK CLAIMS ANOTHER VICTIM. ": COLOU 

R3: PRINT3772, "SCORE = " ; SC ; : G0SUB31000 

28030 C0L0UR8: PRINT5772, "SCORE = " ; SC ; : G0SUB31C00 

28040 H*=INKEY*: IFHS=" "G0T028040 

23045 GOTO 30 

30000 F0RB=1T01000; NEXT: RETURN 
31000 F0RW=1T04: W*= INKEY* ; NEXT: RETURN 

32000 C0L0UR12;PRINTS40,3TRING*(40, "*") 5 : PRINTS330, STRING* (40, "*") ; .'RETURN 
35000 CLS:G03UB32000:C0L0UR13:PRINT§92, "CONGRATULATIONS! "5 ;PRINT§600, "YOU HAVE S 
UCCEEDED IN LEAVING NIGHTMARE PARK . " : G0T028030 



10 REM CASSETTE BOX INLAY PRINTER 

20 CLS: PR I NTe407. "CASSETTE BOX INLAY PRINTER" 

30 PRINT94B9. "bv Kavin M. Smith 1985" 

40 PRINT8800. "Plaase make sure printer is prooerlv set up and 
then press the " i CHR* (251 ) ; " kev" 

50 B=PEEK ( 16420) t IFB010THEN50 
60 CLSSCLEAR500 
70 eOSUBSOO 

80 A**CHR* (240) +STRING$ (39.32) +CHR* (242) 

90 L»0 

100 LPRINTA*: 

110 0A=6:G0SUB510 
120 G0SUB490 
130 QA=12 
140 G05UB510 
150 GOSUB490 

160 CLS:PRINT"TITLE OF TAPE"; PRINT 

1 70 I L=36 : VT=5 : FB= 1 ; NB* 1 : KB* 1 : G0SUB530 

180 A«=T«!G0SUB460 

190 QA*12;B0SUB510 

200 G0SUB490 

210 FORPS*1T012 

220 CLS 

230 PRINT"You have twelve lines, each o-f up to six tv characte 
rs. in which to list or describe the contents o-f the taoe.";PR 
INT; PRINT 

240 PRINT"LINE";PS; PRINT 

250 I L*60 : VT=5 : FB= 1 i NB= 1 ; KB= 1 : G0SUB530 

260 LPRINTCHR* ( 15) : LPRINTCHR* (27) +"S"+CHR« ( 1 ) 

270 A«=T*:LPRINTTAB(7) I Af; 

280 L=L+3 
290 QA*4:G0SUB510 
300 G0SUB490 
310 NEXT PS 

320 FORCV-LTO 1 86 ; QA* 1 i G0SUB5 1 0 : NEXT 

330 LPRINTCHRt (241 ) +STRING* (38. 32) -t-CHR* (241 ) 

340 CLS: PR I NT "WHAT TITLE DO YOU WISH TO APPEAR ON THE SPINE OF T 

HE CASSETTE BOX?": PRINT 

350 I L= 1 8 ; VT=5 : FB* 1 : NB= 1 : KB= 1 : G0SUB530 

360 F0RXU=186T0200:LPRINT;NEXTXU 

370 GOSUB500 

380 A«=T«;LPRINTCHR»(14)+" "+A*; 

390 F0RXU=208T0226:LPRINT;NEXTXU 

400 A«=CHR$ (241 ) +STRING* (38. 32) +CHR* (241 ) : G0SUB460 
410 F0RXU=222T0294;LPRINT:NEXT 

420 A*=CHR4 (246) +STRING« (39.32) +CHR* (247) : LPRINTA4 

430 CLS:PRINT"FINISHED! ":CHR$ (10) ; "DO YOU WISH TO DO ANOTHER (Y/ 

N)?" 

440 U=PEEK ( 16420) : IFU=89THENRUNELSEIFU< >78THEN440ELSECLS: END 
450 END 

460 Y=INT(20-(LEN(A») /2) ) 

470 LPRINTTAB(Y) : A$; 

480 RETURN 

490 I FL* 1 86THENA«=CHRf (241) +STR I NG* (38.32) +CHR« (241): B0SUB460 
500 LPRINTCHR* (27) +"e"+CHR* (27) +"E"-*-CHR* (27) •<-"G"+CHR» (27) -f " A"+CH 
R« ( 1 ) : RETURN 

510 F0RQB=1T0QA: LPRINT: L=L+1 ; F0RQC*1T09: CALL0060; NEXT; NEXT: RETUR 
N 

520 END 

530 SP=PEEK (16416) +256»PEEK (16417) -17408; IFFB=1THENG0SUB630; GOSU 



B640ELSESaSUB640 

540 T«»"":G4=INKEY4 

550 6*=INKEY4: IFG»=*’'"THEN550 

560' I F ASC ( G* ) =aTHENG0SUB670 : G0T0550 

570 I FG*=CHR« (13) ANDPB= 1 THENG0SUB790 

580 I FG$=CHR* (13) ANDULANDLL< >0THENG0SUB840 s I FFL= 1 THENFL*0 : G0T054 
O 

590 IFG*=CHR< (13) THENLL=0 : UL=0 ; FP=0: PB=0: T=VAL (T*) : G0SUB650; IFNB 
= 1 THENG0SUB820 : RETURNELSERETURN 
600 IFLEN(Tt) >»ILTHENG0T0550 

6 1 0 0NVTG0SUB690 . 700 , 720 , 730 ,660:1 FFL= 1 THENG0SUB800 : FL=0 : G0T0550 
ELSESP=SP+1 : G0SUB640 
620 T*»T*+G*:G0T055O 

630 LB=SP : PR I NTaSP PR I NT9SP-^ ( I L+2 ).">":; RB=SP+ ( I L+2 ) : SP=SP+ 

1 : RETURN 

640 PRINTQSP. "S": : I FKB= 1 THENOC-4 ; N0=6: DU=2: VL=10: 60SUB830: RETURN 
ELSERETURN* t* CURSOR ** 

650 PRINTaSP,” RETURN 

660 PRINT9SP.G*:: RETURN 

670 IFLEN(T6)<1THENSL»1: RETURN 

680 FP=0 ; Tf=LEFT* ( T6 . LEN ( T« ) - 1 ) : PR I NTaSP- 1 , " " : : SP*SP- 1 : G0SUB64 

Os RETURN 

690 I FG*< " 0 " QRG4 > ” 9 " THENFL- 1 s RETURNELSEG0SUB660 s RETURN 

700 I F6*= " . " ANDFP«OTHENFP= 1 s G0T07 1 OELSE I FG*< " O " ORG» > " 9 " THENFL* 1 : 

RETURN 

710 60SUB660S RETURN 

720 IFG4< >■' " ANDGt< >“ . ” ANDG«<>" . " ANDG*< >"7"ANDG«< >" : " ANDGf< >" ! " A 
NDG*<>"s "ANDG«>'V'‘ANDG6<>” ("ANDG*<>") "THEN740ELSE750 
730 IFGtO" '•THEN740ELSE750 

740 I FG*< '• A '• 0RG6 > ” Z " ANDG*< " a " 0RG« > " z '• THENFL= 1 X RETURN 

750 G0SUB660S RETURN 

760 IFG4<" ”QRG6>''Z“THEN770ELSE780 

770 I FG4< a " 0RG4 > “ z •' THENFL= 1 s RETURN 

780 G0SUB660S RETURN 

790 BLS*STRING« (25.32) : T«=LEFT4 (T4+BL4. ID s RETURN 
800 I FG*=CHR* (13) ORASC ( Gt ) » ( 8 ) THENRETURN 
810 VL» 1 4 : 0C» 1 : N0=2 : DU=60 : G0SUB830 s RETURN 
820 PRINT0LB." "xsPRI NTaRB , " " ; s RETURN 

830 PLAY (l.OC. NO. VL) sF0RXA»lT0DUs NEXT; PLAY (1. 1, 1.0) : RETURN 
840 I FVAL ( T* )< LLORV AL ( T« ) >ULTHENG0SUB8 1 0 : SP*SP-LEN ( T6 ) : PR I NTaSP , 
STR I NGf ( LEN ( T* ) + 1 . 32 ) s s G0SUB640 : FL= 1 s RETURNELSERETURN 


r -I 

ZONE SIX INVOICING PROGRAM 


SUBROUTINE LIBRARY 

5I9e 3NC 


•MIS IS rne STAHOflWD D.C.'-'BNT IMVOICIMB F«38f(»n 

4Ht:M xaa scbn custshiseo for jse 
sv ISNB 3t« SNTEFFFtSeS 


lOS VEYSOAFO SESOUNCE ILSAO 'A' 

)tO SEYSOAFO tFVEFT :L0AD 

)1S ENASLE SEND SMASIO) TO FFtNTEA 
JIO FFINT i-l OELAY SOUTINE ILOAO 

J29 lOuaUF/FONO SELECTOF SOUTINE i 

>30 KEYSEEF/FEN9E SOUTINE SYSTEN * 


OLOAO 

'0- 

LOAD *6' 
S' 


zoinie: 


SIX IMVOICIMG 


GEIM I 


SUBF^OUT I ME 



1 CHAR2 

10 GOSUB860 'SET UP CHARACTERS 
20 GOSUBB90 'SET UP VARIBLES 
30 GOSUB900 'TITLE PAGE 
40 CLS 
50 GOSUB620 

60 CLS;PRINT@0, IPRINT^BOO, "■■H 

: FORT=0TO80OSTEP4O : PRINT@T , :PRINT@T-^ 

39 , :NEXT 

70 colours: PRINT®! 41 ,CHR4(G) : PR1NT®433 , CHR$ ( G ) :PRINTe701 ,CHRi(G) : COLOUR4 : PRINT®3 
77 ,CHR« (G) :COLOUR4 :PR1NT@383,CHR* (G) , 'COLOURS : PR INT@PL , CHR$ (O) : COLOUR6 : PRINT®LP ,C 
HRS (01) 

80 GOT0340 
90 'DICE THROW 
100 F0RT=1T012 
no IFGA=2THENR=2:GOT0120 
111 IFRUT=33THENR=2 :G0T0120 

115 IFGA=5THENR=1 ;GOTO120 

116 R=RND(3) 

120 NEXT 
130 RETURN 
140 'MOVE PL 2 

1 50 1FSS = "NE"THENLETPL=PL-39*R : 0=Q : LET J=PL + 39S:R ; RETURN 
160 IFSS = "N''CH= 2 .'RETURN 

170 I FS $ = "NW " THENLETPL=PL-4 1 4:R : 0=Q : LET J=PL+4 1 *R : RETURN 
180 I FSS = •■ E " THENLETPL=PL+ 1 S:R : 0=E : LET J=PL- 1 *R I RETURN 
190 I FS S = " SE " THENLETPL=PL+ 4 1 :»:R : 0= W : LET J =PL- 4 1 S:R : RETURN 
200 IFSS="S"THENLETPL=PL+40*R:0=W:LETJ=PL-40»R: RETURN 
210 I FS S = •■ SW " THENLETPL=PL+ 3 9 *R ; 0= W : LET J =PL- 3 9 S:R : RETURN 
220 I FSS = " W " THENLETPL=PL- nR : 0= 1 32 : LET J=PL+ 1 *R : RETURN 
230 CH=2; RETURN 
240 'MOVE PL 2 

250 1FSS = •■NE"THENLETLP=LP-39*R : 01 =Q : LETK=LP+39*R ; RETURN 
260 IFSS="N"CH=2 : RETURN 

270 1 FSS = " NW " THENLETLP=LP-4 1 *R ; 0 1 =Q : LETK=LP+4 1 *R I RETURN 
280 I FSS = " E THENLETLP=LP+ 1 *R : O I =E : LETK=LP- 1 *R : RETURN 
290 I FS S = ” SE " THENLETLP=LP+ 4 1 *R : O I = W : LETK=LP~4 1 !»:R '. RETURN 
300 IFSS = "S"THENLETLP=LP+40*R : 01 = W : LETK=LP-40*R '. RETURN 
310 IFSS = “SW"THENLETLP=LP+39:t:R : 01 =W I LETK=LP-39S:R : RETURN 
320 I FS S = " W " THENLETLP=LP- 1 *R : 0 1 = 1 3 2 .' LETK=LP+ nR : RETURN 
330 CH=2: RETURN 
340 GOSUB90 

350 COLOURS: PR I NT® 12 3, "YOU MAY MOVE" ; R '. PR I NT®203 , "PLAYER 1" 

360 PRINT®283, "DIRECTION": : INPUTS! :GOSUB140 
370 GOSUB470 

380 IFCH=2THENCH=1 :GOTO360 

390 COLOURS : PRINT®PL,CHRS (O) : PRINT® J , CHRS ( 32 ) 

400 GOSUB90 

410 COLOUR6:PRINT®123, "YOU MAY MOVE" : R : PR I NT®203 , "PLAYER 2" 

420 COLOUR6 : PRINT®283 , "DIRECTION" J '. INPUTS! : GOSUB240 
430 G0SUB470 

440 1FCH=2THENCH=1 :GOTO420 

450 COLOUR6 :PRINT®LP,CHRS (01 ) : PRINT®K ,CHRS ( 32 ) 

460 GOTO60 
470 'CHECK 

480 IFPL= 14 1 THENPL=PL-40 :BN=5 (RETURN 
490 IFPL=433THENPL=PL-40 : RETURN 
500 IFPL=701THENPL=PL-40 (RETURN 
510 IFPL=377THENPL=PL-40 (RETURN 
520 lFPL=383THENPL=PL-40: RETURN 
530 IFPL=LPTHENPL=PL-40 (RETURN 


534 I FPL) 701 THENGA=5 : RETURN 

535 IFRUT<>30THEN540ELSEIFPL=3770RPL=3830RPL=3780RPL=3790RPL=3800RPL*3810RPL=382 
0RPL=383THENL=1 :GOT05000 

540 IFLP*141THENLP=LP-40:RETURN 
550 IFLP=433THENLP=LP-40 : RETURN 
560 IFLP=701THENLP=LP-40; RETURN 
570 I FLP=377THENLP=LP-40 : RETURN 
580 IFLP=3B3THENLP=LP-40 : RETURN 

590 IFLP=PLTHENLP=LP-40 :RETURN 

591 IFLP> 70 1 THENGA=5 : RETURN 

593 IFRUT<>30THEN600ELSEIFLP=3770RPL=3830RLP==3780RLP=3790RLP=3800RLP=3810RLP-382 

0RLP=3820RLP=383THENL=2 : GOT05000 

600 RETURN 

610 NM=5: RETURN 

620 RUT=33:CLS;COLOURRND(9) ;PRINT@0, '' 

■" ;PRINTe800, 

630 coLouRRND<9) ;pRiNT®i26, jtmm. jmmk. jmtmk. jtmmk." 

640 COLOURRND(9) ;PRINT@166, "■ ■ ■ ■■ ■ ■” 

650 COLOURRND(9) ;PR1NT®206, ■■■r ■" 

660 COLOURRND(9) ;PRINT&246, " ■ ■ ■ ■ ■ ■" 

670 COLOURRND(9) :PRINTe286, •■''^■1^ ■ T ■" 

680 COLOUR4 :PRINT®377 ,CHR$ (G) : COLOUR4 ; PRINT@383 , CHRi ( G ) : COLOUR3 : PRINT@PL , CHR$ ( Q ) 
:COLOUR6 :PRINT@LP,CHR« (Q) 

690 NI=NI-1 : IFN1=0THENB10 
700 GOSUB90 

710 COLOURS : PR I NT® 7 2 3, "YOU MAY MOVE " ; R : PRINT®643 , "SECONDS LEFT" ; NI : PRINT@660 , "P 
LAYER 1" 

720 PRINT®740, "DIRECTION"; : INPUTS$ :G0SUB140 
725 GOSUB470 , 

730 IFCH=2THENCH=1 :GOTO720 

740 COLOURS : PR INT@PL,CHR$ (O) : PRINT® J , CHR$ ( 32 ) 

750 NI=NI-1 : IFNI=0THEN810ELSEGOSUB90 

760 COLOUR6 :PRINT®723, "YOU MAY MOVE "; R : PRINT®643 , "SECONDS LEFT" ; NI : PRINT®660 , "P 
LAYER 2" 

770 COLOUR6 :PRINT®740, "DIRECTION" ; : I NPUTSi : GOSUB240 
775 GOSUB470 

780 IFCH=2THENCH=1 :GOTO770 

790 COLOUR6 : PRINT®LP , CHR« < 01 ) : PRINT®K ,CHR« (32) 

800 GOT0690 

810 F0RT=1T04 :SOUNDO,254 I SOUND 1 , 0 : SOUND7 , 248 : SOUNDS , 1 5 : FORD= 1 TO200 : NEXTD : SOUNDS , 

15 : SOUND7 ,248 : SOUND 1 , 0 : SOUNDO , 254 : NEXTT : SOUNDO , 1 

820 IFLP<373THENLP=305 

830 IFPL<373THENPL=307 

840 RUT=30 : RETURN 

850 GOTO850 

860 F0RT=1T048 :READX:POKE-3065+T,X:NEXT 
870 RETURN 

880 DATA24, 24 ,60,60 ,126,126, 126,255,255, 126,126,126,60,60,24,24 ,128,240,254,255 , 

255.254.240. 128.1 .15.127.255.255. 127.15.1.60. 126.255.255.255.255. 126.60.0. 24.36, 

195.0. 0.66.129 

890 CH=32 :NI=15 :PL=579 :LP=581 ; Q= 1 29 ; W= 1 30 : J=PL:E=131 : K= 1 32 : G= 1 33 : Y= 1 34 : RETURN 


900 CLS:COLOURRND(9) :PRINT®40. " 

iNT®8oo , 


: COLOURRND ( 9 ) : PR I NT® 1 7 1 


910 COLOURRND(9) :PRINT®21 1 


" :PR 


" : COLOURRND ( 9 ) : PRINT®! 31 , 


" :COLOURRND(9) :PRINT®251 , ” | 


■ ■ ■ ■" ;C0L0URRND(9) :PRINT®291 , T "WttW' 

91 1 FORT=1T020 : PLAY ( 2 ,4,1,10) : NEXT : FORT= 1T020 I PLAY ( 2 , 4 , 3 , 10) : NEXT : F0RT= 1 T020 : PLA 
Y(2,4,0,10) : NEXT : F0RT= 1 TO20 : PLAY (2,4,2,10) : NEXT : FORT= 1 T020 : PLAY (2,4,4,10) : NEXT : F 
0RT= 1 TO20 : PLAY (2,4,0,10): NEXT 

912 FORT=1T020 I PLAY(2 .3,7 , 10 ) : NEXT I FORT= 1 T020 : PLAY ( 2 ,4,3,10) : NEXT : F0RT= 1 TO20 : PLA 
Y(2,4,2, 10) :NEXT:FORT=1T040:PLAY(2,4, 1,10) : NEXT ; PLAY ( 2 , 4 , 0 , 10) 

920 COLOURRND(9) :PRINT:PRINT;PRINT" DO YOU WANT FIXED AMOUNTS TO MOVE" ; : INPUTI ♦ 


; IFI$="Y"THENGA=2 

930 COLOUR9 :PRINT:PRINT:PRINTTAB( 10) "Made By Murray Jones" : PRINT : PRINT : PRINT"P1 e 


ase Push Return To Start MATCH RACING" 

940 I$=INKEY« ; IFI$=""THEN940 
950 RETURN 

5000 PL=1 :LP=2 :F0RT=1T04 :SOUNDO, 254 : SOUND 1 , 0 : SOUND7 , 248 : SOUNDS , 1 5 : FORD= 1 T0200 : NE 
XTD: SOUNDS, 15: SOUND?, 248: SOUND I , 0 : SOUNDO , 254 : NEXTT : SOUNDO , 1 :PRINT®480, " CON" 

GRADULAT I ONS PLAYER " ; L ; " " : END 


10 CLS 
20 COLOUR 3 

30 PRINT" MINI BUDGET PROGRAM" : PRINT: PRINT 

40 FOR N= 1 TO 500 

50 NEXT N 

120 CLS 

130 COLOUR 1 

140 DIMAS (20) , A (20) 

150 ZS="SS##»#, ##" : YS=" “ 

160 CLS 

170 PRINT"BUDGET CALCULATIONS" 

130 INPUT"ENTER MONTHLY INCOME" ;M 
190 INPUT"ENTER No OF MONTHS" ;Y 
200 LET T = M*Y 

210 PRINT"TOTAL INCOME FOR PERIOD = S"T 
220 FOR N = 1 TO 1000 
230 NEXT N 
240 CLS 

250 PRINT”EXPENDITURE" 

260 PRINT" " 

270 INPUT"ENTER NUMBER OF TRANSACTIONS X 
230 GOSUB 520 

290 ’LET B = T- (A ( 1 ) +A (2) +A (3) +A (4) +A (5) ) 

300 F0RN=1T0X: C=C+A (N) :NEXT:B=T-C 
310 CLS 

320 PRINT"TOTAL INCOME FOR PERIOD = S"T 

330 PRINT" " 

340 PRINT"EXPENDITURE" 

350 PRINT" " 

360 F0RN=1T0X 

370 PRINTTAB ( 15-LEN (AS(N) ) ) ;AS(N) ; : PRINTTAB ( 30 ) USING " SS#«tt# . ; A ( N ) 1 NEXT 

330 PRINTTAB (30) }YS 

390 F0RN=1T0X: E=E+A (N) : NEXT 

400 PRINT"T0TAL EXPENDITURE = " TAB ( 30 ) U3I NGZS; E 
410 PRINTTAB (30) J YS 
420 PRINTTAB (30) } YS 
430 IF B<0 COLOUR 5 

440 IF B<0 PRINTTAB ( 10) "ACCOUNT OVERDRAWN" 

450 COLOUR 1 

4 60 PR I NT "BALANCE" J TAB ( 30 ) U3INGZS; B 
470 PRINTTAB (30) "=========" 

430 INPUT "DO YOU WISH TO TRY AGA IN? ( Y / N ) " 5 QS 
490 IF QS="Y" THEN RUN 

500 IF QS-“N"CLS: PRINTTAB ( 10) "Have a Happy Day" 

510 END 

520 FOR N = 1 TO X 

530 INPUT"ENTER ACCOUNT NAME”, AS !N) 

540 INPUT"ENTER AMOUNT"! A (N) 

550 NEXT 

560 RETURN ^ 3 


( 100 CL£ 

150 CLEAR 500:DEriNT A-Z;RAND0M 
160 ri=25:N=40E. 

170 DIM A*CN. 

180 DIM gi*<;m),G2$(:m;,hi(;m),h2(:m) 

190 G1=0;G2=0 

200 L=N 

210 GOSUB 6000 

250 CLS:PRINTTAB(.15>; "J 0 T"; PRINT 

260 PRINT-'Just a fiioment, please ‘':GDSUB 3000:PRINT:Q=RND(N:) 

270 PRINT"Thsnks. Now let’s each think of our secret word." 

280 PRINT" (This takes me a while....)" 

290 GOGUB 2200:Mi=A$(Q:):PRINT:PRINT"0K, 

300 INPUT"Do you want to go first";Q$ 

310 Q$=LEFT$fQt, 1); IF Q$=^N" THEN 600 
320 IF Q$="Y" THEN 500 

330 PRINT: PRINT"Ye5 or no, p I ease" : PRINT; GOTO 3<X) 

500 PRINT: INPUT "Your guess, or S or G";P$ 

510 IF P$="S'‘ THEN GOSUB 1000; GOTO 500 
520 IF P$="Q"THEN 1100 

530 IF P$=M$ THEN G1=G1 + 1 : Gl$ (G1 )=P$: HlCGl ) =9: GOTO 3400 
( 540 GOSUB 1800: IF F=0 THEN PR I NT "THAT’S NOT A LEGAL WORD"; 

550 IF F=0 THEN PRINT"— Try again";G0T0 500 

560 Q$=M$: GOSUB 2600; Q$=P$: GOSUB 1500; PRINT"No. of hits is";Q 

570 G1=G1+1;G1$(G1)=Q$;H1(61)=Q:IF G1=M THEN 3600 

600 Q$= A$ ( L ) ; G2=G2+ 1 ; G2$ ( G2 ) =Q$ 

610 PRINT: PR I NT "My guess is ";Q$ 

620 INPUT"How did I do (0-3 or R)";P$ 

630 P$=LEFT$(P$, 1) 

640 IF P$="R" THEN H2(G2)=9:G0T0 3200 
650 P=VAL(P$) 

660 IF P>3 OR (P=0 AND P$<>"0") THEN PRINT"Bad answer":GDTO 610 
670 IF L>100 THEN PRINT; PRINT" I ’m thinking..." 

660 H2(G2)=P: GOSUB 800; GOTO 500 

800 Q$=G2$(62):H=H2(G2); J=0;GOSUB 2600; L=L-1 ; IF L<1 THEN 900 

810 J=J+1:IF J>L THEN 870 

820 Q$=A$(J): GOSUB 1500 

830 IF Q=H THEN 810 

840 A=J:B=L: GOSUB 2400:L=L-1 

850 IF L<1 THEN 900 

860 IF L>=J THEN 820 

870 RETURN 

900 PRiNT;PRINT"Sornething’5 wrong!!" 

910 PRINT: INPUT"What’s your secret word" ; P$: GOSUB 1800 
920 IF FOO THEN 940 

930 PRINT" 1 1 I eqal word! - I never had a chance !" ;GOTO 1100 
940 PRINT: PRINT"You gave a bad answer somewhere — " 

950 PRINT"Hit any key to check the summary" 

960 Q$=INKEYS:IF THEN 960 

970 GOSUB 1000: GOTO 1100 

1000 PRINT: Q=G1: IF G2>G1 THEN Q=G2 

1010 IF Q=0 THEN PRINT"No guesses yet":RETURN 

1020 FOR J=1 TO 41 :PRINT"-^: ;NEXT; PRINT"-" 

1030 PRINT"YQUR GUESSES SUMMARY MY GUESSES" 

1040 PRINT "WORD HITS" ; TAB (24) WORD HITS" 

1050 FOR J=1 TO Q;K=1;IF J>9 THEN K=0 

1060 IF J>G1 THEN PRINTSTRING$( 12+K, 32) ; J; STRING$ (6, 32) ; G2$( J) ; STRING$ (2, 32) ; 
1070 IF J>G2 THEN PRINT" ":B1$(J);" " ; HI ( J) ; STRING$ (6+K, 32) ; J: GOTO 1090 

1080 PRINT" ";G1$(J);" " ;H1 (J) ; STRINGS (6+K, 32) ; J; STRING$(6, 32) ; G21i(J) ; " ";H 

1090 NEXT: RETURN 

1100 PRINT; INPUT"How about another game";Q$ 

1110 Q$=LEFT$ ( Q$ , 1 ) ; I F Q$= " Y " THEN 200 
1120 IF Q$="N" THEN END 

1130 PRINT; PR I NT "Yes or no p I ease ! " ; GOTO 1100 
1500 P$=LEFT$(Q4, 1);Q=0; GOSUB 1600 


0 |04O 

H2(J) 

!2(J) 


I 

\ 




1510 

1520 

l&OO 

1610 

1800 

■1810 

1820 

1830 

2200 

2210 

2220 

2230 

2240 

2400 

2600 

2610 

3000 

3200 

3210 

3220 

3400 

3410 

3420 

3430 

3440 

3450 

3460 

3470 

3480 

3490 

3600 

3610 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 

5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 


P*=MID»(Q$,2, 1):G0SUB 1600 

F-$=F:IGKT$(Q5, 1):B0SU8 1600: RETURN 

IF F'$=m$ OR P$=M2$ OF: P$=M3$ THEN C=D-+ 1 

RETURN 

F=0 

FOR J=1 TO N 

IF Aii;j)=Pt THEN F=l: RETURN 
NEXT: RETURN 

FOR A=N TO 100 STEP -1 ; B=RND (A) : GOSUB 2400 
NEXT: PRINT 

F'R.INT"I’ve almost got it..." 

FOR A=99 TO 2 STEP -1 ; B=RND<;A) 

GOSUB 2400: NEXT: RETURN 
Q$=A$ f B ) : A$ ( B > =A$ ( A > ; A* ( A ) =Q$ : RETURN 
M1$=LEFT$ ( 1 ; : M2$=MID$<:Q$, 2,1) 

M3$=RIGHT$(Q$, 1):RETURN 

RESTORE: FOR P=i TO N;READ A$ CP) : NEXT: RETURN 
PRINT:PRINT"It sura feals good" 

PRINT; PR I NT "My word was - ":M* 

GOTO 1100 

PRINT:PRINT"Congratul ations - that was it!";PRINT 
INPUT"What was your word" :P$; GOSUB 1800;J=1 
IF FOO THEN 3440 

PRINT" 1 1 I agal word - I had no chanca ! " : GOTO 1100 
IF A$CJ)=p| then PR I NT "Good ona!":G0T0 1100 
J=J+1:IF J<=L THEN 3440 

PRINT; PRINT"You mada an arror somawhar a. . . " 
PRINT"Hit any kay to chack tha summary" 
Q»=INKEY$:IF Q$=’-" THEN 3480 
GOSUB 1000: GOTO 1100 

PR I NT " Sor r y , I'm out o f mamor y 1 " : PR I NT 
PRINT"My word was - ":M$:G0T0 1100 
DATA ACE, ACT, ADD, ADO, ADS, AFT, AGE 
DATA AGO, AID, AIL, AIM, AIR, ALE, ALP 
DATA AND , ANT , AN Y , APE , APT , ARC , ARE 
DAT A ARK , ARM , ART , ASH , ASK , ASP , ATE 
DATA AWE, AWL, AXE, AYE, BAD, BAG, BAN 
D AT A BAR , BAT , B AY , BED , BEG , BET , B I D 
DATA BIG, BIN, BIT, BOA, BOG, BOW, BOX 
DATA BOY, BUD, BUG , BUM , BUN , BUS , BUT 
DATA BUY, BYE, CAB, CAD, CAN, CAM, CAP 
DATA CAR, CAT, COB, COD, COG, CON, COP 
DATA COT , COW , COY , CR Y , CUD , CUB , CUE 
DATA CUP, CUR, CUT, DAB, DAM, DAY, DEN 
DATA DEW, DIE, DIG, DIM, DIN, DIP, DOE 
DATA DOG , DON , DOT , DRY , DUB , DUE , DUG 
DATA DYE , DUO , EAR , EAT , EGO , ELK , ELM 
DATA END, ELF, ERA, FAD, FAG, FAN, FAR 
DATA FAT, FED, FEW, FIG, FIN, FIR, FIT 
DATA F I X , FLY , FOE , FOG , FOR , FOX , FRY 
DATA FUN, FUR, GAP, GAS, GAY, GEM, GET 
DATA GIN, GNU, GOB, GOD, GOT, GUN, GUM 
DATA GUT, GUY, GYP, HAD, HAG, HAM, HAS 
DATA HAT, HAY, HEN, HEX, HID, HIM, HIP 
DATA H I S , H I T , HER , HEM , HOE , HOG , HOP 
DATA HOT, HOW, HUB, HUE, HUG, HUM, HUT 
DATA ICE, ICY, ILK, INK, IMP, ION, IRE 
DATA IRK, ITS, IVY, JAB, JAR, , JAW, JAY 
DATA JOB, JOG, JOT, JOY, JUG, JAG, JAM 
DAT A JET , J I G , J I B , JUT , KEG , KE Y , K I D 
DATA K I N , K I T , LAB , LAD , LAG , L AP , LA W 
DATA LAY, LAX, LED, LEG, LET, LID, LIE 
DATA L I P , L I T , LOB , LOG , LOP , LOT , LO W 
DATA LYE , MAD , MAN , MAP , MAR , MAT , MAY- 
DATA MEN, MET, MID, MOB, MOP, MOW, MUD 


5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 

6000 

6010 

6020 

6030 

6040 

6050 

6060 

6070 

6080 

6090 

6100 

6110 

6120 

6130 

6140 

6150 

6160 

6170 

6180 

6190 

6200 

6210 


DATA M I X , MUG , NAB , NAG , NAP ,NAY, NET 
DATA NEW , N I L , N I P , NOD , NOT , NOP , NOW 
DATA NUT , OAF , OAK , OAR , OAT , ODE , 0 I L 
DATA OLD , ONE , DPT , ORE , OUR , OUT , OVA 
DATA OWE , OWL , OWN , PAD , PAL , PAN , PAR 
DATA PAT , PAW , PAY , PEA , PEG , PEN , PET 
DATA PEW, PIE, PIG, PIT, PLY, POD, POT 
DATA POX , PER , P I N, PRO , PRY , PUB , PUN 
DATA PUS , PUT , RAG , RAN , RAM , RAP , RAT 
DATA RAW , RAY , RED , R I B , R I D , REV, R I G 
DATA R IM , R I P , ROB , ROD , ROE , ROT , ROW 
DATA RUB , RUE , RUG , RUN , RUM , RUT , RYE 
DATA SAD , SAG , SAP , SAT , SAW , SAY, SET 
DATA SEW , SEX , SHY , SEA , SI N , SHE , SI P 
DATA SIR, SIT, SIX, SKI, SLY, SKY, SOB 
DATA SOD, SON, SOW, SOY, SPA, SPY, STY 
DATA SUE, SUM, SUN, TAB, TAD, TAG, TAN 
DATA TAP, TAX, TAR, TEA, TEN, THE, THY 
DATA TIC, TIE, TIN, TIP, TOE, TON, TOP 
DATA TOW, TOY, TRY, TUB, TUG, TWO, URN 
DATA USE, UPS, VAN, VAT, VEX, VIA, VIE 
DATA VIM, VOW , YAK , YAM , YEN , YES , YET 
DATA YOU, WAD, WAG, WAN, WAR, WAS, WAX 
DATA WAY, WEB, WED, WET, WHO, WHY, WIG 
DATA WIN, WIT, WOE, WON, WRY, ZIP, FIB 
PRINTTABCS)"! N S T R U C T I 0 N S" 
PRINTTAB(;6;"SSSSSSSSSSSSSSSSSSSSSSS" 

PRINT 

PRINT" JOT is a two player word game (you " 

PRINT''against the computer) involving consi der-ab I e mental 
PRINT" The ganne is played entirely with " 

PRINT"thr ee-l etter words. All letters of each" 

PRINT"word must be distinct - no repeats." 

PRINT" To begin the game, each player " 

PRINT"chooses a secret word. The winner is the"; 

PRINT" first to deduce the opponent’s word." 

PRINT"After each guess the player is told " 

PRINT"how many letters (hits) nis guess had in"; 
PRINT"common with his opponent's secret word" 

PRINT" The position of the letter in the " 

PRINT"word is not indicated. 


^1opse^. I 


PR INI 


Type ’S’ for a summary of your" 


PR.INT"guesses, and ’Q’ quit. ’R’ means ’right’" 
PRINT" Good luck!" 

PRINT; PRINT"Pr ess any key to begin" 

K$=INKEY$;IF K.$="" THEN 6200 
RETURN 


by ■ 




deduct i 



NOTES ON •CORPORATION 


A round o4 play with •CORPORATION* consists O'f six stages, which 
take place over one ’week’. The computer will lead you through 
these stages, so youMl probably find it easier to play than it 
may appear from these notes. The stages for each ’week’ are as 
follows 

1. BANK. . . .borrow/repay 

2. STAFF. .. .hire/fire 

3. BUY IN raw materials as required. 

4. MANUFACTURE. .. .your product 

5. SALES.... of your product 

6. FINANCIAL STATEMENT. .. ’week’ s trading 

You start with SIO, 000. .. .*1000 of which is borrowed. 

Various items of misfortune befall you. .. .randomly, as in real 
life. 

You may not save money by dramatic stunts like reducing your staff 
to zero. . . .sorry! 

IHHf Remember .... to make your product you need 1 unit of material 
A. ..2 units of material B....and 3.5 units of material C. fHHl 

You will be told how many units of product you COULD make with the 
raw materials on hand.... BUT this will obvio^^sly depend upon staff 
numbers. 

You get a chance to vary your selling price according to a 

computer determined BASE price so to some extent you control 

your sales f igure. . . .but watch out for profit margins 
if you cut your price too low below BASE. 

At the end of each ’week’ you get a FINANCIAL STATEMENT. The game 
ends when you either go BANKRUPT, or you amass a sum of *50,000 
nett prof it. . . . . .not too dif f icult. ... record in Feilding is 12 

’weeks’ 

GOOD LUCK and HAPPY TRADING! 






f 




TaJ 4 c. 


i 

10 'THE CORPORATION 
20 G0SUB3670: ’ INITIALISATION 
30 UEEK-UEEK+l 

40 CLS:C0L0UR1S:PRINT*THIS IS UEEK'IUEEK 
SO G0SUB330: ’PINANCE 
60 G0SUB830: 'STAFF 

70 IFCAPITAL>0THENG0SUB1:90: 'RAW MATERIALS 
80 GOSUB 1630: ’MANUFACTURE 






9d“iFRNDt0i >.9AK<Da<l9THENSaSUBi8^b: 'CONTiNeENfilEs ■ — — — 

100 IFUHAREH0USE>0THENG0SUB277O; ’SALES 
110 00SUB3230: ’TAXES/ OVERHEADS 

120 1FCAPITAU-LOAN>-OOOOOTHEN160: 'FIFTY THOUSAND 
130 IFCAPITAU-l.0AN<0THEN220! ’BANKRUPTCY 
140 60T030 
ISO * 

140 ’FIFTY THOUSAND 

170 COLOUR12: PRINT! PRINT’CONORATULATIONS- YOU HAVE MADE MORE* 

180 PRINT:PRINT*THAN 850,000!!! YOU ACHIEVED THIS* 

, 190 PRINT! PRINT*MA6IC FIGURE AFTER *WEEK*VIEEKS* 

200 END 

210 ’ 

220 'BANKRUPTCY 

230 COLOURl: PR I NT ’UNFORTUNATELY, YOU ARE BANKRUPT AND* 

240 PRINT! PRINT’MUST SEEK THE PROTECTION OF* 

250 print:print*the courts* 

240 END 
270 ’ 

290 CAPITAL-CAPITAL-STAFF*WAGE 

290 C0L0UR4!PRINT*Y0UR 'UEEK* MEEKS HAVE ALL GONE* 

300 PRINT! PRINT'YOU STARTED UITH 810,000 AND NOU* 

310 PRINT! PRINT* AFTER MUCH EFFORT -YOU HAVE 8*CAPITAL 
320 forj-itoiooo:next3 
330 END 
340 ’ 

350 'FINANCE 

340 COLOURl! PRINT! PRINT’AVAILABLE CAPITAL IS 8*CAPITAL 

370 PAY-0 

330 REPAY-0 

390 HOPE-0 

400 MUNEY-CAPITAL 

410 G0SU84040 

420 IFL0AN-0THEN63O 

430 PRINT!PRINT*0F THIS, 8 "LOAN* IS BORROWED* 

440 IFINKEY8<>**THEN440 

4S0 PRINT!PRINT*DO YOU WANT TO PAY ANY OF THIS BACK (Y/N! * 

440 R8-INKEY8 

470 I FR8< > * Y • AN0R8< > * N * THEN440 

480 C0L0UR4!PRINT!P9INTTAB(12) I 'Q.K. * ICOLOURI 

490 IFR8»*N*THEN430 

500 PRINT! PRINT’HOU MUCH DO YOU WISH TO REPAY*! 

510 INPUTPAY 

520 IFPAY>CAPITAL-L0ANTHENPRINT!PRINT*Y0U can not afford THAT MUCH*:GOSUB4040:GO 
T0510 

530 IFPAY>LCANTHENPRINT:PRINT*Y0U did not borrow as much AS THAT* !0OSUB4040: SOTO 



S40 LOAN-LOAN-PAY; CAPITAL-CAPITAU-PAY 
SSO IFl.0AN»OTHEN620 
560 R6PAY-INT(L0AN*<BANK/4) ) /lOO 
570 IFREPAY»0THeN620 

iSO PRINT: PRINT’BANK CHAROSS ARE ’BANK* % PER MONTH* 

190 print: PRINT* INTEREST CHARGES THIS WEEK ARE S'REPAY 
•00 CAPITAL-CAPITAL-REPAY 

610 PRINT: PRINT*AFTER PAYING THIS YOU HAVE •*CAPITAL 

620 G0SUB4040 : RETURN 

630 LIMIT-INT( ICAPITAL-LOAN) /4) 

640 IFL0AN>-LIMITTHBNS60 
6S0 IFINKEY»<>**THEN650 

660 PRINT: PRINT*DO YOU WISH TO BORROW FROM THE BANK?* 

670 print: PRINT*YOU CAN BORROW UP TO * “LIMIT 
680 PR I NT: PR I NT “ENTER 'L' TO TAKE A FURTHER LOAN* 

690 print: PRINT* OR 'N' TO REFUSE’ 

700 R*» INKEYS 

710 IFRS<>*L*ANDRS<>*N*THEN700 

720 COLOUR4; PRINT: PRINTTABl 12) I *0. K. * 1 COLOURl 

730 IFRS-*N*THENS60 

740 PRINT:PRINT*HOW MUCH DO YOU WISH TO BORROW*! 

7S0 INPUTHOPE I 

760 IFHOPE>LIMITTHENPRINT*THAT IS BEYOND 'yOUR CREDIT LIMIT* ! G0SUB4040: S0T07S0 
770 print:colouris:print*loan approved* 

700 LOAN-LOAN+HOPE: capital -CAPITAL -^HOPE 
790 60SUB4040 

900 IFLOAN-OANDHOPE-OTHENRETURN 
805 G0T0S60 
910 • 

930 ’STAFF 

340 C0LCUR1S:PRINT*Y0U have “STAFF* STAFF ON THE PAYROLL* : C0L0UR7 

950 WAGS«INT( (WAGE+ . 0025*WAGE) *100) / 100 

960 PRINT: PRINT*THE AVERAGE WAGE IS S -UACE’WHICH IS* 

970 PRINT; PRINT'S "WAGEi-STAFF* FOR THE WHOLE STAFF* 

980 G0SUB4040 

990 IFINKEYS<>**THeN890 

900 print:primt*p9ESS ’H’ if you wish to hire staff* 

910 PRINT:PRINT* ’F’ if you wish to fire staff* . 

920 PRINT:PRINT* ’N’ IF FOR NO CHANGE IN STAFF* 

930 TS» INKEYS 

940 IFTS< >*H*ANDTS< >*F*ANDTS< >*N*THEN930 
950 C0L0UR4:PRINT:PRINTTAB(125 I "Q.K. •;C0L0UR1 
960 1FTS-*N*THEN1140 
970 IFTS»*H* THEN 1070 

980 PRINT; PRINT*HQU MANY DO YOU WISH TO FIRE* 

990 IMPUTZ 

1000 IFZ>STAFFTH£MPRINT*THAT IS NOT POSSIBLE * 1 G0T0980 
1010 C0L0UR12:PRINT:PRINT*WE will put this to the UNION* 

1020 G03U34040 

1030 2»IMT<RMD (O) «*! ) 

1040 P9IMT:PRINT*UNI0N AGREES TO *Z* STAFF CUT* 


1050 STAFF-STAPF-2 
1060 G0T01120 
1070 

1080 PRINT:PRINT"HOU MANY DO YOU WISH TO HIRE") 

1090 INPUTZ 

1100 IFZ<1THENPRINT:PRINT"N0T FUNNY" : GOT01080 
1110 STAFF-STAFF+Z 

1120 C0L0UR15:PRINT!PR1NT"Y0U now HAVE "STAFF" ON THE PAYROLL* 

1130 G0SUB4040 

1140 PRINT:PRINT"THE WAGE BILL THIS WEEK IS » *WAGE*STAFF 

1150 CAPITAL»CAPITAL-WAGE*STAFF 

1160 G0SUB4040 

1165 RETURN 

1170 

1180 ’RAW MATERIALS 

1190 RCAW»1NT< <RCAW+,003*RCAW)*100) /lOO 
1200 CBRAW>INT( (CBRAW-f . 002*CBRAW) »100) / 100 
1210 CCRAW-INT( (CCRAW*,004*CCRAW) *100) /lOO 
1230 MATERIAL-O 

1240 CAP1TAL*INT(CAPITAL*100) /lOO 

1250 COLOUR1:PRINT"YOU have » "INT(CAPITAL*100) /lOO 

1260 PRINT:PRINT" • 

1270 C0L0UR7:PRINT"RAW MATERIALS ON HAND! * 

1280 PR1NT:PRINTTAB(6) ) "A- "RAW) TAB ( 16) I "B- "BRAW ) TAB (26) I "C- "CRAW 

1290 PRINT:PRINT"COST * • I LEFT* (STR» (RCAW) , 5) ) TAB ( 16) ) "»* I LEFT* (STR»(CBRAW) , 5) TA 

B(26) ) "**(LEFT*(STR*(CCRAW) ,5) 

1300 X-RAW 

1310 IFINT (BRAW/2) <XTHENX«INT (BRAW/2) 

1320 IFINT(CRAW/3.5) <XTHENX»INT (CRAW/3 . 5) 

1330 print: PRINT*YOU CURRENTLY HAVE ENOUGH RAW MATERIALS" 

1340 print: PRINT'TO MAKE "X" PRODUCTS* 

1350 IFINKEY*<>" "THEN1350 

1360 PRINT: PR1NT"D0 YOU WISH TO BUY MORE RAW MATERIALS (Y/N)"I 
1370 R*-INkEY* 

1380 1FR*<>*Y*ANDR*<>"N*THEN1370 

1390 C0L0UR4: PRINT: PRINTTAB( 12) I *0. K . " : C0L0UR7 

1400 IFR*«"N"THENRETURN 

1420 PRINT:PRINT"ENTER a B or C as REQUIRED" 

1430 R*> INKEY* 

1440 IFR*<>"A"ANDR*<>'B"ANDR*<>*C"THEN1430 
1450 1FR*-"A"THENCST-RCAW 
1460 IFR*-"B"THENCST«CBRAW 
1470 IFR*»"C*THENCST»CCRAW 

1480 PRINT: PRIMT"HOW MANY OF "R** DO YOU WISH" 

1490 PRINT: PRINT’TO BUY* 

1500 INPUTM 

1510 M«ABS(INT(M+.5) ) 

1520 IFM*CST>CAPITALTHENPRINT:PRINT"N0T enough money* 



1530 PRINT:COUOUR15:PRINT‘YOU have just bought "M' UNITS" 

1540 PRINT:PRINT"0F material "R*:C0L0UR7 
1550 MATERIAL=MATERIAL+M*CST 
1560 CAPITAL«CAPITAL-M#CST 
1570 IFR*-"A"THEMRAW=RAW+M 
1530 TFR»-"B"THENBRAU»BRAW+M 
1590 IFR»-"C"THENCRAW«CRAW+M 
1600 G0SUB4040 
1610 G0T01240 
1620 ’*#■*-»■» 

1630 'MANUFACTURE 

1640 LWHAREHOUSE-UHAREHOUSE 

1650 ITEMCST-INTll .0025*ITEMCST»100) /llOO! ITEMCST-INT ( 10*ITEMCST) /lO 
1660 PRINT:PRINT*1T costs * "ITEMCST") TO MAKE EACH ONE" 

1670 MAX-INT (STAFF/NOMAKE) 

1680 IFMAX>XTHENMAX»X 

1690 PRINT:PRINT"AND WITH "STAFF" STAFF YOU CAN MAKE "MAX 
1700 GOSUB4040 

1710 C0L0UR15:PRINT:PRINT"WHAT is your PRODUCTION TARGET"! :C0L0UR7 
1720 INPUTX 

1730 IFX>MAXTTHENPRINT;PRINT"Y0U can not make that MANY";Q0SUB4040:G0T01710 
1740 G0SUB4040 

1750 PRINT:PRINT"TARGET of "X" ACCEPTED" 

1760 G0SUB4040 

1770 Y-INT(RND(0)*X/5+.5) 

1780 Y-X-Y 

1790 CASH-CASH-ITEMCST»Y 

1300 print; PR1NT"STAFF PRODUCED "Y" THIS WEEK" 

1810 IFX>OTHENPRINT!PRINTl INT(1000#Y/X) /lO* % OF TARGET" 

1320 RAU-RAU-Y 

1830 BRAW-INT<BRAU-2*Y+.5) 

1835 CRAW-INT (CRAW-3. 5*Y+. 5) 

1840 WHAREHOUSE-WHAREHOUSE+Y 
1860 G0SUB4040 
1870 RETURN 
1880 

1890 'CONTINGENCIES 
1900 Q-Q+1 

1910 0NA(Q)G0SUB1940, 2030, 2130, 2320, 2400, 2470, 2560, 2610, 2670 
1920 GOSUB4040 
1930 RETURN 

1940 '** COMPETITION ** 

1950 PRINT'THERE IS NEW COMPETITION IN THE MARKET" 

1960 G0SUB4040 

1970 PRINT:PRINT"Y0UR selling price MUST BE CUT BY" 

1980 PRINT: PRINT'BY ONE THIRD TO ENABLE YOU TO CCOMPETE" 

1990 SELLPRICE-INT (SELLPRICE466. 666) /lOO 
2000 GOSUB4040 

2010 PRINT: PRINT" YOUR NEW BASE PRICE IS * "SELLPRICE 
2020 RETURN 

2030 '** NEW REGULATIONS ** 



2030 * Ntw KbUUt.H ( lUPfS ir-ir 

2040 print: PRINT'THE GOVERNMENT HAS INTRODUCED NEW 

2030 PRINT:PRINT-SAFETY REGULATIONS FOR YOUR INDUSTRY *: 60SUB4040 

2060 PRINTtPRINT'COMPLIANCE ADDS 3% TO" 

2070 PRINTSPRINT'YOUR MANUFACTURING COSTS" 

2080 PRINT;PRINT"BEF0RE COMPLYING-IT cost you • "ITEMCST" EACH, BUT" 
2100 ITEMCST-TNT ( ( ITEMCST + 34-ITEMCST/100HH00> /lOO 
2110 PRINT: PRINT"NOW IT COSTS » "ITEMCST" PER UNIT" 

2120 RETURN 
2130 ’STRIKE 

2140 PRINT "INDUSTRIAL UNREST" : G0SUB4040 
2160 PRINT:PR1NT"UNI0NS strike for two WEEKS!" 

2180 PRINT: PRINT"C0STS CONTINUE TO MOUNT" 

2190 F0RU-1T02 
2200 WEEK-WEEK+1 

2210 PRINT:PR1NT"THIS is week "WEEK:GOSUB4040 

2220 print; PR I NT "BEFORE PAYING LOAN, CAPITAL WAS "CAPITAL;G0SUB4040 

2230 CAPITAL«CAPITAL-INT(L0AN»<BANK/4) ) /lOO 

2240 PRINT:PRINT"CAPITAL is now * "CAPITAL: e0SUB4040 

2250 WAGE-INT( <WA6E+.0025»WAGE)*100) /lOO 

2260 print: PRINT'OVERHEADS MUST BE PAID" : G0SUB4040 

2270 CAPITAL-CAPITAL-INT(S0VeRHEAD'»STAFF*WAGE*100) /lOO 

2290 PRINT: PRINT"CAPITAL STANDS AT »"CAPITAL 

2300 NEXTW , 

2310 RETURN 
2320 •♦♦FIRE 

2330 PRINT:PRINT"FIRE IN WHAREHOUSE" 

2340 60SUB4040 

2330 PRINT; PR I NT "BEFORE THE FIRE YOU HAD "WHAREHOUSE" UNITS" 

2360 WHAREHOUSE* INT ( WHAREHOUSE/ 2 ) 

2370 PRINT:PRINT"IN STOCK, BUT STOCK IS NOW "WHAREHOUSE 
2380 G0SUB404O 
2390 RETURN 

2400 ’♦♦ GREATER EFFICIENCY ♦♦ 

2410 PRINT; PR1NT"Y0U DECIDE TO SPEND 93000 TO" 

2420 PR I NT .’PRINT "STREAMLINE YOUR OPERATION" 

2430 PRINT:PRINT"THIS CUTS COSTS BY 10*. . . " 

2440 CAPITAL-CAPITAL-5000 

2430 ITEMCOST-INT ( ( . 9^ITEMC0ST) ♦lOO) / 100 

2460 RETURN 

2470 ■♦* TRANSPORT STRIKE ♦♦ 

2480 PRINT: PRINT"TRUCKINQ AGENCY GOES ON STRIKE" 

2490 PRINT;PRINT"DISRUPTINB SUPPLIES OF RAW MATERIAL ( A >" 

2300 G0SUB4040 

2510 PRINT; PRINT"YOU AGREE TO PAY HIGHER COSTS " 

2520 PRINT: PRINT"YOU ARE * "50000-CAPITAL-L0AN" FROM 950000* 

2530 PRINT:PRINT"UP BY 7%" 

2340 CRAW-INTI < 1 . OP^CRAW) ♦100) / 100 
2530 RETURN 



2560 ’** IMPORT DUTY CUT ** 

2570 PRINT: PRINT* IMPORT DUTIES CUT BY 6.5%* 

2580 CBRAU-INT( ( . 93S000I4(CBRAU)«1001 / 1 100 
2600 RETURN 

2610 ’*■» CCQNTAMINANT #♦ 

2620 PRINT: PRINT'A TRACE OF CONTAMINANT IS FOUND* 

2630 PRINT:PRINT*IN THE DRINKING WATER SUPPLIED TO YOUR* 

2640 PRINT: PRINT’PLANT. STAFF DEMANdI 1% ’DANGER’ BONUS* 

2650 WAGE-INT( (1.01#UAGE)*100)/100 I 
2660 RETURN 

2670 '** DEFECTS DISCOYERED ** 

2680 PRINT: PRINT-ALU THIS WEEK’S PRODUCTION IS FAULTY.,.* 

2700 G0SUB4040 

2710 PRINT:PRINT*DECISION-SCRAP ALU THIS WEEK’S PRODUCTION OF *Y* UNITS* 

2740 WHAREHOUSE-WHAREHOUSE-Y : BO-0 

2750 RETURN 

2760 ’iHHHf 

2770 ’SALES 

2780 PERCENT-0 

2790 FIRST-1.025*FIRST 

2800 PRINT:PRINT*THE CURRENT SELLING PRICE IS » *SELLPRICE 
2810 PRINT:PR1NT*MARKET base price is * *INT«10»F1RST)/10 
2820 IF1NKEY*<>**THEN2820 
2830 M-O 

2840 PR I NT: PRINT* ENTER ’R’ TO RAISE THE PRICE* 

2850 PRINT: PRINT* ’L’ TO LOWER THE PRICE* 

2860 PRINT:PRINT* ’M’ to MAINTAIN PRICE" 

2870 R»»INKEY* 

2880 IFR»<>*R* ANDR»<>*L*ANDR»<>"M*THEN2870 
2890 PRINT:PRINT"0.K. * 

2900 IFR»-"M*THEN2980 

2910 PRINT: PRINT-WHAT PERCENTAGE GHANGE DO YOU WISH* 

2920 PRINT: PRINT* TO MAKE"; 

2930 INPUTM 

2940 IFM<0THEN2930 

2950 M-M/100 

2960 IFR«="L"TH£NM— M 

2970 SELLPRICE=INT( (SELLPRICE+M*SELLPRICE) *100) /lOO 
2980 PRINT:PRINT"THIS WEEK’S SELLING PRICE IS *"SELLPRICE 
2990 G0SUB4040 
3000 IFINKEY*<>* "THEN3000 

3010 PRINT'PRESS ’S’ FOR THIS WEEK’S SALE FIGURE* 

3020 IFINKEY*<>*S*THEN3020 
3030 PRINT:PRINT"0.K. " 

3040 PRINT: PRINT’STAND BY FOR RESULT* 

3050 PRINT:PRINT"YOU HAVE ‘WHAREHOUSE* IN STOCK" 

3060 G0SUB4040:G0SUB4040 
3070 TEST»WHAREHOUSE*FIRST/SELLPRICE 
3080 BOUGHT-IMTIRND(0)*TEST) +1 
3085 IFB0<0 OR 30>WHTHEM3080 

•3/-,an rni niioi-.poTNT!PRTNT"YOU SOLD ’BOUGHT* UNITS THIS WEEK" : C0L0UR7 



I 3090 C0L0UR15:PRINT:PRINT*Y0U sold "BOUGHT* UNITS THIS WEEK" : COLOUR? 

3110 CAPITAL-CAPITAL* BOUGHT »SELLPRI CE 
3120 WHAREHOUSE-WHAREHOUSE-BOUGHT 
3130 G0SUB404O 
3140 IFRND(O) >. 9THEN3160 
3 ISO RETURN 

3160 PRINT:PR1NT"BAD NEWS FROM ACCOUNTS DEPT" 

3170 GOSUB4040 

3180 PERCENT- INT ( RND ( 0 ) *3 ) + INT ( RND ( 0 ) #1 00 ) / 100 

3190 PRINT: PRINTPERCENT’% OF THOSE WHO BOUGHT THIS WEEK" 

3200 PR I NT: PR I NT "HAVE DEFAULTED ON PAYMENT" 

3210 CAPITAL-CAPITAL- INT (PERCENT*BOUGHT#SELLPRICE) / 100 
3220 60SUB4040 
3230 RETURN 
3240 ’****** 

3230 ’TAXES /OVERHEADS 

3260 PRINT:PRINT"FINANC1AL STATUS AFTER WEEK "WEEK 

3270 PRINT:PR1NT"Y0UR capital stands at * "CAPITAL 

3280 PRINT: PRINT"WEEK OPENING CAPITAL WAS • "MUNEY 

3300 PRINT: PRINT’CURRENT STOCK- "WHAREHOUSE 

3310 PRINT:PRINT"WEEK OPENING STOCK WAS : "LWHAREHOUSE 

3320 PR INT: PR I NT "STAFF NOW IS: "STAFF 

3330 PRINT:PRINT’EACH staff CARRIES A OVERHEAD OF" 

3340 M-INT(S0VERHEAD#STAFF»WA6E) 

3350 PRINf:PRINTSOVERHEAD" % OF WAGES* 1 PRINT: PRINT"WHICH IS » "M/100" IN ALL" 
3360 G0SUB4040 

3370 CAPITAL-INT(CAPITAL-M/100) 

3380 MINUS-PAY+REPAY+WAGE*STAFF+MATERIAL+Y»ITEMCST+M/ 100 
3390 PRINT:PRINT"Y0U spent • "MINUS" THIS WEEK" 

3400 M-INT(-MINUS+B0UGHT*SELLPRICE)»100/100 
3410 G0SUB4040 

3420 PRINT; FORINT" > YOU STARTED WEEK WITH * "MUNEY 
3430 PRINT;PRINT">Y0U SOLD * "BOUGHT*SELLPRICE" WORTH" 

3440 IFM< 1THEN3570 
3450 TAX-INT<10*M/3) /lO 

3460 PRINT: PR1NT"Y0U ARE TAXED ON WEEKS PROFIT" 

3470 PRINT:PRINT"WHICH FOR WEEK "WEEK" WAS » *M 
3480 PRINT:PRINT*TAX RATE IS 33.33X OF PROFIT SO-* 

3490 print: PRINT*TAX - «*TAX 
3500 CAPITAL-CAPITAL-TAX 
3510 IFWEEK>29THEN280 
3540 PRINT: PR I NT "PRESS ANY KEY" 

3550 C0L0UR15: IFINKEY*-" "THEN3550 
3560 RETURN 
3570 M— M 

3580 PRINT; PRINT"YOU MADE A LOSS OF •"M" THIS WEEK" 

3590 G0SUB4040 

3600 M»INT(100*M/9) /lOO 

3610 IFRND ( 0 ) > . 3THENGOT03540 

3620 PRINT: PRINT"RECEIVE GOVERNMENT SUSIDY OF S "M 
3640 CAPITAL-CAPITAL+M j 

3650 G0T03540 J 

3660 

3670 ’INITIALISE 
3690 CLS 
3700 -DIMA (10) 

3710 LOAN- 1000 

3720 BANK-(5*INT(RND<0)*6) ) /2 

3730 CAPITAL-10000 

3740 STAFF»30+INT(RND(0)*20) 

3750 S0VERHEAD-IMT(RND(0)*3+1) /2+10 
3760 Q-0: 'CONTINGENCY COUNTER 
3770 WAGE-INT(150+RND(0)*30)/2 
3780 ’** RAW MATERIALS ** 

3790 RAW»60+INT(RND(0)*20) 

3800 RCAW-3+INT(RND<0)*4) 

3810 BRAW-75+INT(RND(0)*20> 

3820 CBRAW-4+INT(RND(0)*3) 

3830 CRAW-83+INT(RND(0)*20> 

3840 CCRAW-3*INT(RND(0)#3) 

3850 ITEMCST-INT(12+RND(0)*5) 

3860 NOMAKE-INT ( ( RND (0) ♦ . 5) *10 ) / 10 
3870 WHAREHOUSE-0 

3880 ’DECRESE SELLPRICE FOR TOUGHER GAME 
3890 SELLPRICE-287+INT(RND(0)#50) 

3900 FIRST-. 97*SELLPRICE 
3910 ’MOSES/OAKFORD SHUFFLE 
3920 FORJ-lTOlO 
3930 A(J)-J 
3940 NEXTJ 

3950 F0RJ-10T02STEP-1 
3960 Z-INT(RND(0)*J) +1 
3970 B-A(2) 

3980 A(Z)-A(J) 

3990 A(J)»B 
4000 NEXTJ 
4010 RETURN 
4020 ’*♦♦** 

4030 ’DELAY 

4040 FORJ-1T0500:NEXTJ 

4050 PRINT’ 

4060 RETURN 


10 CLS 
IS COTO 330 
IT CLS 
20 T>120 
30 l(l>«03 
40 K'lOOO 
SO K3-&23 
*0 H-RtlD<a) 

43 COLOUR H 
63 PHINTOT.* * 

60 COLOUR 4 

70 PHIMT«40,‘SCORE";SC; 

80 R-W-1 

90 IF H»0 THEN 320 

100 LET T»T*1 

110 IF T-1S4 THEM PRIMTOT, 

US COLOUR a 

120 PRlNTaHl.' 11 


■HI SCORE*; HI; •TIME*:M; 


•:LET T»l2e 







130 ItalNKEY* 

140 IF I»-"I*THEN LET B-«l*2:00T0 16S 
ISO IF 1*-‘0"THEM LET B-Ml*lS:COTO 16S 

160 IF I»»-P"THEM LET B»R1*28:00T0 16S 

161 COTO 60 
16S SOUND 6. IS 

. 166 SOUND 7,7 

167 SOUND a. 16 

168 SOUND 9,16 

169 SOUND 10.16 

170 SOUND 12.16 

171 SOUND 13.0 
180 PRINT»B.* I* 

190 F0RY-1T013 
200 LETB-B-40 
210 LET T«T*1 

220 PRlMTeT." 'A" • 

230 IF T-1S4 THEN PHINT»T.* ■:LET T<il20 

240 PRINTSB," I * 

250 PRINTeB," • 

260 IF B«T*4THEN 290 
270 NEXT y 
280 COTO 60 

290 LET SC»SC*10 

291 SOUND 6.0 

292 SOUND 7,7 

. 293 SOUND 8. 16 

294 SOUND 9.16 

295 SOUND 10. la 
i 296 SOUND 12. S6 
^ 297 SOUND 13.0 

■ 300 PHINTS40, •SCORE*; SC; *HI SCORE’; HI; *KEN*;H; 
310 COTO 60 

320 IFSC-400 THEN LET B«1000 ; COTO60 

325 IF SC>HI THEN LET HI-SC 

330 CLS 

333 SCaO 

335 COLOUR 3 

340 phimt98o,*:jjjj oqoo n n esse SSSS y Y 1* 

345 COLOUR 5 


350 

PHINT9120,* J 

0 

0 NN H 

E 

S 

Y Y 

11* 

3SS 

COLOUR 4 








360 

365 

PRINT8160,* I 
COLOUR 5 

0 

0 N 

NN 

EEE 

SSSS 

Y Y 

1* 

370 

375 

PRINT9200,*J } 
COLOUR 3 

0 

0 N 

N 

5 

S 

YY 

1* 

380 

385 

PRINT9240,*j;j 
COLOUR I 

0000 N 

N 


SSSS 

YV 

1* 

390 

PRINT94a0.* PLEASE 

PRESS 

<S) 

TO START* 




: 400 PRINT9530.* OH * 

. 410 PRINTSSoO.* PRESS <I) FOR INSTRUCTIONS* 

420 J»atMKEy»;IF J»»**THEN 420 

430 IF J»»*S* THEN 17 

440 IF J»-*I* THEN SOO 

SOO CLS 

505 COLOUR 4 

SIO PHINT9130,*J0NESY l-CO-ORDINATION" 

SIS COLOUR! 

S20 PSINT9200. *KILL AS MANY ALIEN COKKAND SHIPS AS YOU CAN !* 

52S COLOUR a 

S30 PRINT-BUT BE CAREFUL IF YOU RUN OUT OF TIME YOU ARE DOOMED" 
533 COLOUR 6 

S40 PRINT"IF ALL ELSE FAILS CAPTURE THE MAN ON THE PARACHUTE ’ 
“543 COLOUR 7 

530 PRINT'COOD LUCK!" 

360 PRINT9600.*PLEASE PRESS (S)" 

570 IN»«INKEY« ; IF IN»-**THEN 370 
330 COTO 17 
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